home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 055b.dms / 055b.adf / AZ_PROC_LIBRARY / AZPROC1.AMOS / AZPROC1.amosSourceCode
AMOS Source Code  |  1992-02-26  |  962b  |  43 lines
  1. '
  2. '     THE AMOSZINE CLASSIC PROCEDURES LIBRARY  
  3. '     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
  4. '  
  5. '     PROC NO. : 1 
  6. '
  7. '     PROC NAME: SHADOW_TEXT   
  8. '
  9. '     ORIGIN   : AMINET CD   
  10. '
  11. '     AUTHOR   : UNKNOWN     
  12. '
  13. '     PURPOSE  : CREATES 2 COLOUR TEXT 
  14. '
  15. '     PARAMS   : X   =  X COORDINATE OF TEXT STRING  
  16. '                Y   =  Y COORDINATE OF TEXT STRING    
  17. '                FG  =  FOREGROUND COLOUR  
  18. '                BG  =  BACKGROUND COLOUR  
  19. '                TXT$=  TEXT STRING TO OPERATE ON
  20. '       COMMENT: Change the two colours to get desired effect
  21. '                some look naff, others great, experiment. 
  22. '======================================================
  23. '
  24. '
  25. 'WORKING EXAMPLE 
  26. '--------------- 
  27. '
  28.  
  29. Flash Off : Curs Off : Cls 0
  30.  
  31.  
  32. _SHADOW_TXT[30,10,2,6,"SUPPORT AMOS - SUPPORT AMOSZINE!"]
  33.  
  34. Wait Key 
  35.  
  36.  
  37. Procedure _SHADOW_TXT[X,Y,_FG,_BG,_TXT$]
  38.    Gr Writing 0
  39.    Ink _BG
  40.    Text X+1,Y+1,_TXT$
  41.    Ink _FG
  42.    Text X,Y,_TXT$
  43. End Proc